home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmCM_905_ClassMethods < prev    next >
Encoding:
Text File  |  1992-04-08  |  485 b   |  19 lines
  1. %if not classname = superClass%
  2.     #if qInspector
  3.     #pragma segment AFields
  4.     /*----------*/
  5.     pascal void %classname%::Fields    (
  6.                             pascal void (*DoToField)
  7.                                     (StringPtr        fieldName, 
  8.                                      Ptr            fieldAddr, 
  9.                                      short            fieldType, 
  10.                                      void             *DoToField_StaticLink),
  11.                             void    *DoToField_StaticLink)
  12.     {
  13.         (*DoToField) ("\p%classname%", NULL, bClass, DoToField_StaticLink);
  14.         inherited::Fields (DoToField, DoToField_StaticLink);
  15.     } /* Fields */
  16.  
  17.     #endif
  18. %endif%
  19.